-- background: 5255 from stack: in
-- bmap block id: 5545
-- flags: 0000
-- background id: 0
-- name: 
----- HyperTalk script -----
On OpenStack
  --show message box
  --put "Loading..."
  --lock screen
  --repeat with Counter=1 to 277
  --  go to card counter
  --  put counter into field "PageNumber"
  --end repeat
  go to card 1
  --unlock screen
  hide message box
  hide menubar

  put 0 into card field "MultNumberWrong" of card id 84491
  put 0 into card field "MultNumberCorrect" of card id 84491
  put 0 into card field "VocNumberWrong" of card id 84491
  put 0 into card field "VocNumberCorrect" of card id 84491

  put 0 into card field "Right" of card 299
  put 0 into card field "Wrong" of card 299

  hide field "comment"
  set the scroll of field "comment" to 0
  choose browse tool
end OpenStack


-- part 5 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=389 top=84 right=100 bottom=418
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PageNumber


-- part 2 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=54 top=4 right=68 bottom=420
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 22
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: comment


-- part 7 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=375 top=261 right=284 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Vocabulary Creator
----- HyperTalk script -----
on mouseUp
  ----------------------------------------------------------------------
  -- Hidden fields = A, B, hidethebackground, numberoftries, and
  --         theanswer
  -- Hidden buttons= Radio1, Radio2,theword
  ----------------------------------------------------------------------
  get the number of card fields
  put (it+1) into FieldNumber
  domenu "New field"
  set name of card field FieldNumber to "A"
  set the rect of card field "A" to 67,0,355,34
  set the style of card field "A" to rectangle
  set showlines of card field "A" to true
  set textfont to Courier
  set textsize to 12
  set textstyle to bold

  get the number of card fields
  put (it+1) into FieldNumber
  domenu "New field"
  set name of card field FieldNumber to "B"
  set the rect of card field "B" to 67,33,355,67
  set the style of card field "B" to rectangle
  set showlines of card field "B" to true
  set textfont to Courier
  set textsize to 12
  set textstyle to bold

  get the number of card buttons
  put (it+1) into buttonnumber
  domenu "New Button"
  set name of card button buttonnumber to "Radio1"
  set the rect of card button "Radio1" to 48,0,68,34
  set the style of card button "Radio1" to radioButton
  set showname of card button "Radio1" to false
  set autohilite of card button "Radio1" to true

  domenu "New Field"   -- Put script into the first radio button
  add 1 to fieldnumber
  set the name of card field fieldnumber to "TheScript"
  put "On Mouseup" into line 1 of card field "TheScript"
  put "set the hilite of card button Radio1 to true" into line 2 of card field "TheScript"
  put "set the hilite of card button Radio2 to false" into line 3 of card field "TheScript"
  put "End Mouseup" into line 4 of card field "TheScript"
  get card field "TheScript"
  set the script of card button "Radio1" to it

  add 1 to buttonnumber
  domenu "New Button"
  set name of card button buttonnumber to "Radio2"
  set the rect of card button "Radio2" to 48,33,68,67
  set the style of card button "Radio2" to radioButton
  set showname of card button "Radio2" to false
  set autohilite of card button "Radio2" to true

  put "set the hilite of card button Radio1 to False" into line 2 of card field "TheScript"
  put "set the hilite of card button Radio2 to true" into line 3 of card field "TheScript"
  get card field "TheScript"
  set the script of card button "Radio2" to it
  -- put script into the second radio button

  choose field tool
  click at the loc of card field "TheScript"
  domenu "Clear Field"

  domenu "New field"
  get the number of card fields
  put it into FieldNumber
  set name of card field fieldnumber to "HideTheBackground"
  set the style of card field "HideTheBackground" to rectangle
  set the rect of card field "HideTheBackground" to 48,0,68,67
  domenu "Send Farther"
  domenu "Send Farther"

  choose browse tool
  add 1 to fieldnumber
  domenu "New field"
  set name of card field fieldnumber to "TheWord"
  set the rect of card field "TheWord" to 364,10,507,46
  set the style of card field "TheWord" to rectangle
  set showlines of card field "TheWord" to true
  set textfont of card field "TheWord" to Courier
  set textsize of card field "TheWord" to 12
  set textstyle of card field "TheWord" to bold
  choose browse tool
  click at 367,15
  type "   The Word:"

  domenu "New field"
  get the number of card fields
  set the name of card field it to "TheAnswer"
  set the rect of card field "TheAnswer" to 364,52,489,70
  set the style of card field "TheAnswer" to rectangle
  -- A,B
  show card field "TheAnswer"

  domenu "New field"
  get the number of card fields
  set the name of card field it to "NumberOfTries"
  set the rect of card field "NumberOfTries" to 364,85,489,100
  set the style of card field "NumberOfTries" to rectangle
  put "" into card field "NumberOfTries"
  hide card field "NumberOfTries"

  domenu "New button"
  get the number of card buttons
  set the name of card button it to "NoPageTurn"
  set the rect of card button "NoPageTurn" to the rect of bkgnd button "Page Turn"
  set the style of card button "NoPageTurn" to transparent
  set showname of card button "NoPageTurn" to false
  choose browse tool

  show bkgnd button "I'm done with this Question"
end mouseUp



-- part 10 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=400 top=194 right=216 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Script for Real
----- HyperTalk script -----
on mouseUp
  get card field "NumberOfTries"
  if it is empty then
    show card field "A"
    show card field "B"
    show card field "HideTheBackground"
    show card field "TheWord"
    show button "Radio1"
    set the hilite of card button "Radio1" to false
    show button "Radio2"
    set the hilite of card button "Radio2" to false
    show button "done"
    put 1 into card field "NumberOfTries"
  end if

end mouseUp



-- part 12 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=400 top=105 right=127 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Script for RealII
----- HyperTalk script -----
on mouseUp
  hide card field "A"
  hide card field "B"
  hide card field "HideTheBackground"
  hide card field "TheWord"
  hide button "Radio1"
  hide button "Radio2"

  get card field "TheAnswer"
  If (it="A") or (it="a") then  -- if he chose the first radio button
    if (the hilite of card button "Radio1" = true) then
      add 1 to card field "VocNumberCorrect" of card id 84491
      put "You're Correct!!"
    else
      add 1 to card field "VocNumberWrong" of card id 84491
      put "You're Wrong!  The correct answer was A.  Press the mouse"
      lock screen
      show card field "A"
      Unlock screen with dissolve
    end if
  else                          -- if he chose the second radio button
    if (the hilite of card button "Radio2" = true) then
      add 1 to card field "VocNumberCorrect" of card id 84491
      put "You're Correct"
    else
      add 1 to card field "VocNumberWrong" of card id 84491
      put "You're Wrong!  The correct answer was B.  Press the mouse"
      lock screen
      show card field "B"
      Unlock screen with dissolve
    end if
  end if
  hide button "Done"
  wait until the mouseclick
  lock screen
  hide card field "A"
  hide card field "B"
  unlock screen with dissolve
  hide message box
end mouseUp



-- part 14 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=394 top=209 right=235 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete Question
----- HyperTalk script -----
on mouseUp
  select card button "VocabularyQuestion"
  domenu "Cut button"
  show button "Radio1"
  select card button "Radio1"
  domenu "Cut Button"
  show button "Radio2"
  select card button "Radio2"
  domenu "Cut Button"
  show button "done"
  select card button "Done"
  domenu "Cut Button"
  show button "nopageturn"
  select card button "nopageturn"
  domenu "Cut button"
  show card field "A"
  select card field "A"
  domenu "Cut field"
  show card field "B"
  select card field "B"
  domenu "Cut field"
  show card field "Hidethebackground"
  select card field "HideTheBackground"
  domenu "Cut field"
  show card field "TheAnswer"
  select card field "TheAnswer"
  domenu "Cut field"
  show card field "Numberoftries"
  select card field "NumberOfTries"
  domenu "Cut field"
  show card field "TheWord"
  select card field "TheWord"
  domenu "Cut field"
  choose browse tool
end mouseUp



-- part 8 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=324 top=318 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: I'm done with this Question
----- HyperTalk script -----
on mouseUp
  hide card field "A"
  hide card field "B"
  hide card field "HideTheBackground"
  hide button "Radio1"
  hide button "Radio2"
  hide button "NoPageTurn"
  hide card field "TheWord"
  hide card field "TheAnswer" -- The user should never see this one
  hide bkgnd button "I'm done with this Question"

  domenu "New button"
  get the number of card buttons
  set the name of card button it to "VocabularyQuestion"
  set the loc of button "VocabularyQuestion" to 60,117
  set the style of button "VocabularyQuestion" to transparent
  set showname of button "VocabularyQuestion" to false
  set the script of button "VocabularyQuestion" to the script of bkgnd button "Script for real"
  set the icon of button "VocabularyQuestion" to 21060
  set the rect of card button "VocabularyQuestion" to 35,114,85,151

  domenu "New button"
  get the number of card buttons
  set the name of card button it to "Done"
  set the style of button "Done" to roundrect
  set showname of button "Done" to true
  set the script of button "Done" to the script of bkgnd button "Script for RealII"
  set the rect of card button "done" to 186,73,286,95
  hide card button "Done"

  choose browse tool
end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=474 top=138 right=186 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 32462 / 32462
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: HELP
----- HyperTalk script -----
on mouseUp
  push card
  go to stack "Jekyll and Hyde Help"
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=442 top=27 right=74 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 11645 / 11645
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: History Index
----- HyperTalk script -----
on mouseUp
  global returncard
  go to returncard
end mouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=16 top=319 right=340 bottom=76
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  global returncard
  go to returncard
end mouseUp